Vba操作工作薄（实现工作表筛选且将数据复制到新工作薄中） |
您所在的位置：网站首页 › vba 符合条件记录复制到另一个工作表 › Vba操作工作薄（实现工作表筛选且将数据复制到新工作薄中） |
Vba操作工作薄（实现工作表筛选且将数据复制到新工作薄中）
|
一、实现功能： '通过VBA实现表格内表头的筛选，同时实现部分单元格内数据的更改，同时将更改好的信息保存到另外一个工作薄 '实现逻辑与步骤： '（1）打开目标工作表; '（2）对工作表内容进行筛选和更改; '（3）将筛选好的内容进行复制到新工作薄同时进行保存和关闭. 二、案例展示：
三、代码部分： Sub text() '实现表格内表头的筛选 同时实现部分单元格内数据的更改，同时将更改好的信息进行保存到另外一个工作薄 '实现逻辑与步骤： '（1）打开目标工作表，创建新的工作薄 '（2）对工作表内容进行筛选和更改 '（3）将筛选好的内容进行复制到新工作薄同时进行保存和关闭 Dim a As Integer Dim sh As Worksheet For Each sh In Sheets sh.Select For i = 100 To 2 Step -1 If sh.Range("F" & i) = "男" Then sh.Range("F" & i) = "先生" ElseIf sh.Range("F" & i) = "女" Then sh.Range("F" & i) = "女士" End If If sh.Range("B" & i) = "" Then sh.Range("B" & i).Select Selection.EntireRow.Delete End If If sh.Range("C" & i) = "" Then sh.Range("C" & i).Select Selection.EntireRow.Delete End If Next '复制筛选出来的表格数据 sh.Copy '将复制好的数据保存新工作薄且保存到指定位置 ActiveWorkbook.SaveAs Filename:="D:\桌面\SF\数据源\测试\" & sh.Name & ".XLSX" ActiveWorkbook.Close Next End Sub四、结果呈现：
|
【本文地址】
公司简介
联系我们
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |